20 REM *** BASIC V2+ DEMO 2 *** 30 REM * BY MARK MARZINZIK * 40 REM ************************ 41 DATA"[194][193][211][201][195] [214]2+ KANN ABER NOCH MEHR ALS NUR","HOCHAUFLOESENDE [199]RAFIK." 42 DATA"[200]IER SEHEN [211]IE Z.[194]. DIE [193]NWENDUNG DER" 43 DATA"[194]EFEHLE #[205][193][210][199][201][206], #[211][195][210][197][197][206] UND #[208][197][206], DIE" 44 DATA"EINE [193]ENDERUNG DER [198]ARBEN BEWIRKEN." 45 DATA"[193]UF [203]LEINSCHRIFT WURDE MIT #[204][207][215][197][210] UMGE-","SCHALTET." 46 DATA"[196]ER [212]ASTATURPIEPS, DEN [211]IE AUCH FUER " 47 DATA"EIGENE [208]ROGRAMME VERWENDEN KOENNEN,WIRD" 48 DATA"MIT #[214][207][204][213][205][197], #[197][206][214][197][204][207][208][197] UND #[214][207][201][195][197] ER-","ZEUGT." 49 DATA"[196]ER [194]EFEHL #[203][197][217][208][210][197][211][211] WARTET NUN AUF ","EINEN [212]ASTENDRUCK." 57 DIM A$(13) 58 GOTO 500 59 : 60 REM ** MUSIKSTUECK 61 DIM W(12),N$(12),F(200) 70 DATA34334,C,36377,C#,38539,D,40831,D#,43258,E,45831,F 80 DATA48557,F#,51444,G,54502,G#,57743,A,61177,A#,64815,B 90 : 100 DATAB,4,4,D,5,4,C,5,8,ST,0,1,B,4,4,D,5,4,A,4,8,ST,0,1,B,4,4,D,5,4,C,5,4 110 DATAB,4,2,C,5,2,D,5,4,A,4,4,G,4,8,ST,0,2,B,4,4,G,4,4,C,5,8,ST,0,1,B,4,4 120 DATAG,4,4,A,4,8,ST,0,1,B,4,4,D,5,4,C,5,8,ST,0,1,B,4,2,C,5,2,D,5,4,A,4,4 130 DATAG,4,10,Q,0 140 : 250 FOR I=1 TO 12:READ W(I),N$(I):NEXT 251 FORI=1TO24:POKE54272+I,0:NEXT 260 X=1 270 READ N$,N:IF N$="Q" THEN 345 280 IF N$="ST" THEN F=0:GOTO 320 290 FOR I=1 TO 12:IF N$=N$(I) THEN ZW=I:I=12 300 NEXT I 310 F=W(ZW)/(2^(7-N)) 320 READ Y 330 FOR I=1 TO Y 340 F(X)=F:X=X+1:NEXTI:GOTO270 345 GOTO 410 350 #ENVELOPE,1,2,2,15,15 360 #VOLUME,15 370 FOR I=1 TO X-1 380 #VOICE,1,F(I),1,0 390 FOR J=1 TO 10:NEXT J:NEXT I 400 RETURN 410 FOR OP=1 TO 3:GOSUB350:NEXTOP 420 #VOLUME,0:RETURN 430 : 500 REM ** BEGINN 501 #PEN,1:#SCREEN,0 510 PRINTCHR$(147):#LOWER:#PLACE,3,6 511 PRINT"[194][160][193][160][211][160][201][160][195][160][160][214] 2 + [196] E M O 2" 512 #PLACE,4,6:PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 513 #PLACE,7,0 520 FOR I=1 TO 13:READA$(I) 530 FOR J=1 TO LEN(A$(I)) 540 PRINTMID$(A$(I),J,1); 545 IF J/3<>INT(J/3)THEN576 550 #VOLUME,15 560 #ENVELOPE,1,2,7,7,15 570 #VOICE,1,45000,1,10 571 P=P+1:IFP=16THENP=0 572 IFP=0THENP=1 574 #PEN,P 576 NEXTJ:PRINT 579 #MARGIN,INT(RND(0)*16) 580 NEXT I 590 GOSUB600:GOTO620 600 #PLACE,22,16:PRINT"":#KEYPRESS:RETURN 620 REM ** MUSIK 630 PRINTCHR$(147):#SCREEN,0:#MARGIN,13:#PEN,13:#PLACE,3,0:#UPPER 640 PRINT"BASIC V2+ IST AUCH SEHR MUSIKALISCH." 650 PRINT"HOEREN SIE SELBST !" 660 GOSUB 60 670 PRINT:PRINT"DIE MELODIE STAMMT AUS DEM ALTEN ENG-" 680 PRINT"LISCHEN LIED "CHR$(34)"SHEPHERD'S HEY"CHR$(34)"." 690 GOSUB600 700 REM ** UHR 701 #SCREEN,1:#MARGIN,1:#PEN,0:PRINTCHR$(147):#PLACE,1,0 702 PRINT"DIESE UHR LAEUFT MIT #PLACE,#ENVELOPE,":PRINT"#VOLUME UND #VOICE." 710 #PLACE,6,13:PRINT"[213][201] [213][201]" 711 PRINTSPC(13)"[202][219][192][192][192][192][192][192][192][192][192][219][203]":PRINTSPC(14)"[221] .0. [221]" 712 PRINTSPC(14)"[221] . . [221]" 713 PRINTSPC(14)"[221]. .[221]" 714 PRINTSPC(14)"[221]45 15[221]" 715 PRINTSPC(14)"[221]. .[221]" 716 PRINTSPC(14)"[221] . . [221]" 717 PRINTSPC(14)"[221] .3. [221]" 718 PRINTSPC(14)"[221][162][185][175][164]0[164][175][185][162][221]" 719 PRINTSPC(13)"[213][219][192][192][192][192][192][192][192][192][192][219][201]" 720 PRINTSPC(13)"[202][203] [202][203]" 750 #ENVELOPE,1,0,0,15,0 751 #ENVELOPE,2,0,0,7,11:#ENVELOPE,3,0,0,11,4 760 #VOLUME,15:GOTO1010 770 #VOICE,1,20480,1,15 780 FOR I=1 TO 3:NEXT:FORI=4TO18STEP7:POKE54272+I,16:NEXT 790 FOR I=1 TO 300:NEXT 800 #VOICE,1,15360,1,15 801 #VOICE,2,5120,1,15 802 #VOICE,3,10240,1,15 810 FOR I=1 TO 3:NEXT:FORI=4TO18STEP7:POKE54272+I,16:NEXT 820 FOR I=1 TO 300:NEXT 850 RETURN 910 FORI=1TO100:NEXT:FORI=9TO13:#PLACE,I,17:PRINT" ":NEXT 920 #PLACE,11,19:PRINT"[209]":RETURN 930 FORI=9TO10:#PLACE,I,19:PRINT"[221]":NEXT:GOSUB770:GOSUB910 940 #PLACE,9,21:PRINT"[206]":#PLACE,10,20:PRINT"[206]":GOSUB910 950 #PLACE,11,20:PRINT"[192][192]":GOSUB910 960 FORI=12TO13:#PLACE,I,I+8:PRINT"[205]":NEXT:GOSUB910 970 FORI=12TO13:#PLACE,I,19:PRINT"[221]":NEXT:GOSUB910 980 #PLACE,12,18:PRINT"[206]":#PLACE,13,17:PRINT"[206]":GOSUB910 990 #PLACE,11,17:PRINT"[192][192]":GOSUB910 1000 FORI=9TO10:#PLACE,I,I+8:PRINT"[205]":NEXT:GOSUB910:RETURN 1010 FOR S=1 TO 6:GOSUB930:NEXT 1020 FORI=9TO10:#PLACE,I,19:PRINT"[221]":NEXT 1030 GOSUB600 1040 PRINTCHR$(147):#PLACE,4,0 1050 #SCREEN,6:#MARGIN,14:#PEN,1 1060 PRINT"SO, DAS WAR DIE VORSTELLUNG VON " 1070 PRINT"BASIC V2+. BEFEHLE WIE #RENUMBER, #MERGE"; 1080 PRINT"UND #OLD KOENNEN IN EINEM DEMOPROGRAMM" 1090 PRINT"LEIDER NICHT VORGESTELLT WERDEN. ICH ER-"; 1100 PRINT"MUNTERE SIE ZUM EXPERIMENTIEREN !!!" 1110 #OFF 1120 PRINT:PRINT"IN DIESEM MOMENT SIND UEBRIGENS DIE TAS-"; 1130 PRINT"TEN RUN/STOP - RESTORE AUSGESCHALTET." 1140 PRINT"DRUECKEN SIE SIE MAL!" 1150 #PLACE,23,12:PRINT"WEITER MIT " 1151 GETKP$:IFKP$=""THEN1151 1152 IF KP$=CHR$(133)THEN1160 1153 GOTO1151 1160 PRINTCHR$(147):#REVIVE:PRINT"NUN GEHEN SIE WIEDER!" 1170 PRINT"DRUECKEN SIE SIE BITTE,DENN DAS PROGRAMM";:PRINT"IST NUN ZU ENDE." 1180 GOTO 1180